home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / software / stahuj / prog / pdfdemo.exe / {app} / pdfmain.frm < prev    next >
Text File  |  2002-10-30  |  14KB  |  507 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  4. Begin VB.Form pdfmain 
  5.    Caption         =   "FyTek PDF File Creator"
  6.    ClientHeight    =   7335
  7.    ClientLeft      =   165
  8.    ClientTop       =   735
  9.    ClientWidth     =   7650
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   7335
  12.    ScaleWidth      =   7650
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CheckBox chk128 
  15.       Caption         =   "128-bit Encryption (Acrobat 5.0 or higher)"
  16.       Height          =   555
  17.       Left            =   4680
  18.       TabIndex        =   15
  19.       Top             =   6000
  20.       Width           =   2535
  21.    End
  22.    Begin VB.TextBox usrPass 
  23.       Height          =   285
  24.       Left            =   4680
  25.       TabIndex        =   14
  26.       Top             =   5640
  27.       Width           =   2175
  28.    End
  29.    Begin VB.TextBox ownPass 
  30.       Height          =   285
  31.       Left            =   4680
  32.       TabIndex        =   13
  33.       Top             =   5160
  34.       Width           =   2175
  35.    End
  36.    Begin VB.CheckBox chkMail 
  37.       Caption         =   "Attach to Email"
  38.       Height          =   315
  39.       Left            =   1560
  40.       TabIndex        =   12
  41.       Top             =   6120
  42.       Width           =   1815
  43.    End
  44.    Begin VB.CheckBox chkPrint 
  45.       Caption         =   "Print"
  46.       Height          =   375
  47.       Left            =   1560
  48.       TabIndex        =   11
  49.       Top             =   5640
  50.       Width           =   1335
  51.    End
  52.    Begin VB.CheckBox chkPreview 
  53.       Caption         =   "Preview"
  54.       Height          =   375
  55.       Left            =   1560
  56.       TabIndex        =   10
  57.       Top             =   5160
  58.       Value           =   1  'Checked
  59.       Width           =   1335
  60.    End
  61.    Begin MSComctlLib.ImageList ImageList1 
  62.       Left            =   360
  63.       Top             =   5040
  64.       _ExtentX        =   1005
  65.       _ExtentY        =   1005
  66.       BackColor       =   -2147483643
  67.       ImageWidth      =   16
  68.       ImageHeight     =   16
  69.       MaskColor       =   12632256
  70.       _Version        =   393216
  71.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  72.          NumListImages   =   3
  73.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  74.             Picture         =   "pdfmain.frx":0000
  75.             Key             =   ""
  76.          EndProperty
  77.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  78.             Picture         =   "pdfmain.frx":011C
  79.             Key             =   ""
  80.          EndProperty
  81.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  82.             Picture         =   "pdfmain.frx":0234
  83.             Key             =   ""
  84.          EndProperty
  85.       EndProperty
  86.    End
  87.    Begin MSComctlLib.Toolbar Toolbar1 
  88.       Align           =   1  'Align Top
  89.       Height          =   570
  90.       Left            =   0
  91.       TabIndex        =   9
  92.       Top             =   0
  93.       Width           =   7650
  94.       _ExtentX        =   13494
  95.       _ExtentY        =   1005
  96.       ButtonWidth     =   873
  97.       ButtonHeight    =   953
  98.       Appearance      =   1
  99.       Style           =   1
  100.       ImageList       =   "ImageList1"
  101.       _Version        =   393216
  102.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  103.          NumButtons      =   5
  104.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  105.             Caption         =   "New"
  106.             ImageIndex      =   1
  107.          EndProperty
  108.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  109.             ImageIndex      =   2
  110.             Style           =   3
  111.          EndProperty
  112.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  113.             Caption         =   "Open"
  114.             ImageIndex      =   2
  115.          EndProperty
  116.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  117.             Caption         =   "Save"
  118.             ImageIndex      =   3
  119.          EndProperty
  120.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  121.             Style           =   3
  122.          EndProperty
  123.       EndProperty
  124.    End
  125.    Begin VB.TextBox txtEditor 
  126.       BeginProperty Font 
  127.          Name            =   "Courier New"
  128.          Size            =   9
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   3315
  136.       Left            =   5
  137.       MultiLine       =   -1  'True
  138.       ScrollBars      =   3  'Both
  139.       TabIndex        =   8
  140.       Top             =   660
  141.       Width           =   6900
  142.    End
  143.    Begin VB.TextBox infile 
  144.       Height          =   285
  145.       Left            =   1560
  146.       TabIndex        =   6
  147.       Top             =   4260
  148.       Width           =   5415
  149.    End
  150.    Begin VB.CommandButton cmdInput 
  151.       Caption         =   "..."
  152.       Height          =   255
  153.       Left            =   1200
  154.       TabIndex        =   5
  155.       Top             =   4260
  156.       Width           =   315
  157.    End
  158.    Begin MSComctlLib.StatusBar StatusBar1 
  159.       Align           =   2  'Align Bottom
  160.       Height          =   375
  161.       Left            =   0
  162.       TabIndex        =   4
  163.       Top             =   6960
  164.       Width           =   7650
  165.       _ExtentX        =   13494
  166.       _ExtentY        =   661
  167.       _Version        =   393216
  168.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  169.          NumPanels       =   1
  170.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  171.             Object.Width           =   8819
  172.             MinWidth        =   8819
  173.          EndProperty
  174.       EndProperty
  175.    End
  176.    Begin MSComDlg.CommonDialog CommonDialog1 
  177.       Left            =   960
  178.       Top             =   5040
  179.       _ExtentX        =   847
  180.       _ExtentY        =   847
  181.       _Version        =   393216
  182.    End
  183.    Begin VB.CommandButton cmdOutput 
  184.       Caption         =   "..."
  185.       Height          =   255
  186.       Left            =   1200
  187.       TabIndex        =   3
  188.       Top             =   4680
  189.       Width           =   315
  190.    End
  191.    Begin VB.CommandButton go 
  192.       Caption         =   "Create PDF"
  193.       Height          =   375
  194.       Left            =   3120
  195.       TabIndex        =   2
  196.       Top             =   6480
  197.       Width           =   1335
  198.    End
  199.    Begin VB.TextBox outfile 
  200.       Height          =   285
  201.       Left            =   1560
  202.       TabIndex        =   1
  203.       Top             =   4680
  204.       Width           =   5415
  205.    End
  206.    Begin VB.Label Label1 
  207.       Caption         =   "User Password"
  208.       Height          =   255
  209.       Left            =   3360
  210.       TabIndex        =   17
  211.       Top             =   5655
  212.       Width           =   1335
  213.    End
  214.    Begin VB.Label ownLabel 
  215.       Caption         =   "Owner Password"
  216.       Height          =   255
  217.       Left            =   3240
  218.       TabIndex        =   16
  219.       Top             =   5175
  220.       Width           =   1335
  221.    End
  222.    Begin VB.Label lab_infile 
  223.       Alignment       =   1  'Right Justify
  224.       Caption         =   "Input File"
  225.       Height          =   255
  226.       Left            =   120
  227.       TabIndex        =   7
  228.       Top             =   4260
  229.       Width           =   975
  230.    End
  231.    Begin VB.Label lab_outfile 
  232.       Alignment       =   1  'Right Justify
  233.       Caption         =   "Output File"
  234.       Height          =   255
  235.       Left            =   120
  236.       TabIndex        =   0
  237.       Top             =   4680
  238.       Width           =   975
  239.    End
  240.    Begin VB.Menu mnuFile 
  241.       Caption         =   "&File"
  242.       Begin VB.Menu mnuNewScript 
  243.          Caption         =   "&New Script"
  244.       End
  245.       Begin VB.Menu mnuOpenScript 
  246.          Caption         =   "&Open Script"
  247.       End
  248.       Begin VB.Menu mnuSpacer1 
  249.          Caption         =   "-"
  250.       End
  251.       Begin VB.Menu mnuSave 
  252.          Caption         =   "&Save"
  253.       End
  254.       Begin VB.Menu mnuSaveAs 
  255.          Caption         =   "Save &As"
  256.       End
  257.       Begin VB.Menu mnuSpacer2 
  258.          Caption         =   "-"
  259.       End
  260.       Begin VB.Menu mnuCreatePDF 
  261.          Caption         =   "&Create PDF"
  262.       End
  263.       Begin VB.Menu mnuSpacer3 
  264.          Caption         =   "-"
  265.       End
  266.       Begin VB.Menu Exit 
  267.          Caption         =   "E&xit"
  268.       End
  269.    End
  270. End
  271. Attribute VB_Name = "pdfmain"
  272. Attribute VB_GlobalNameSpace = False
  273. Attribute VB_Creatable = False
  274. Attribute VB_PredeclaredId = True
  275. Attribute VB_Exposed = False
  276. Public CancelUnload As Boolean
  277. Private Sub cmdInput_Click()
  278.  
  279. OpenScript
  280.  
  281. End Sub
  282.  
  283. Private Sub cmdOutput_Click()
  284.  
  285. CommonDialog1.DefaultExt = ".rpt"
  286. CommonDialog1.Filter = "Adobe Acrobat|*.pdf"
  287. CommonDialog1.ShowOpen
  288. outfile.Text = CommonDialog1.FileName
  289.  
  290. End Sub
  291.  
  292. Private Sub Exit_Click()
  293.  
  294. Unload Me
  295.  
  296. End Sub
  297.  
  298. Private Sub Form_Load()
  299.  
  300. bolScriptNeedsSaving = False
  301. Toolbar1.Buttons(4).Enabled = False
  302.  
  303. End Sub
  304.  
  305. Private Sub Form_Resize()
  306.  
  307. txtEditor.Width = pdfmain.Width - 100
  308.  
  309. End Sub
  310.  
  311. Public Sub Form_Unload(Cancel As Integer)
  312.  
  313. CheckForSave
  314. If CancelUnload Then Cancel = 1
  315.  
  316. End Sub
  317.  
  318. Private Sub go_Click()
  319.  
  320. CreatePDF
  321.  
  322. End Sub
  323.  
  324. Public Sub OpenScript()
  325.  
  326. CommonDialog1.InitDir = App.Path
  327. CommonDialog1.DefaultExt = ".rpt"
  328. CommonDialog1.Filter = "PDF Creator|*.rpt"
  329. CommonDialog1.ShowOpen
  330. If CommonDialog1.FileName = "" Then Exit Sub
  331.  
  332. strScriptFilePath = CommonDialog1.FileName
  333. infile.Text = strScriptFilePath
  334. StatusBar1.Panels(1).Text = "Opening " & infile.Text
  335.  
  336. If Not (FileSys.FileExists(infile.Text)) Then
  337.     MsgBox "File does not exist"
  338.     Exit Sub
  339. End If
  340.  
  341. Open infile.Text For Input As #1
  342.  
  343. Do Until EOF(1)
  344.     Line Input #1, strLineInput
  345.     If Not EOF(1) Then
  346.         strFileInput = strFileInput & strLineInput & vbCrLf
  347.     Else
  348.         strFileInput = strFileInput & strLineInput
  349.     End If
  350. Loop
  351. Close #1
  352. StatusBar1.Panels(1).Text = ""
  353. txtEditor.Text = strFileInput
  354. bolScriptNeedsSaving = False
  355. Toolbar1.Buttons(4).Enabled = False
  356.  
  357. End Sub
  358. Public Sub SaveScript()
  359.  
  360. If Not (FileSys.FileExists(infile.Text)) Then
  361.   CommonDialog1.InitDir = App.Path
  362.   CommonDialog1.DefaultExt = ".rpt"
  363.   CommonDialog1.Filter = "PDF Creator|*.rpt"
  364.   CommonDialog1.ShowOpen
  365. End If
  366.  
  367. If CommonDialog1.FileName = "" Then Exit Sub
  368.  
  369. strScriptFilePath = CommonDialog1.FileName
  370. infile.Text = strScriptFilePath
  371.  
  372. FileSys.DeleteFile (strScriptFilePath)
  373. StatusBar1.Panels(1).Text = "Saving " & strScriptFilePath
  374. Open strScriptFilePath For Binary As #1
  375. Put #1, , txtEditor.Text
  376. Close #1
  377. bolScriptNeedsSaving = False
  378. Toolbar1.Buttons(4).Enabled = False
  379. StatusBar1.Panels(1).Text = ""
  380.  
  381. End Sub
  382.  
  383. Private Sub mnuCreatePDF_Click()
  384.  
  385. CreatePDF
  386.  
  387. End Sub
  388.  
  389. Private Sub mnuNewScript_Click()
  390.  
  391. NewScript
  392.  
  393. End Sub
  394.  
  395. Private Sub mnuOpenScript_Click()
  396.  
  397. OpenScript
  398.  
  399. End Sub
  400. Private Sub PDF_Error(errCode As Long, errDesc As String)
  401.  
  402. MsgBox "PDFCreator.dll error #" & errCode & vbCrLf & _
  403.     errDesc
  404.     
  405. End Sub
  406.  
  407. Private Sub mnuSave_Click()
  408.  
  409. SaveScript
  410.  
  411. End Sub
  412.  
  413. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  414.  
  415. Select Case Button.Index
  416.  
  417.     Case 1
  418.         NewScript
  419.     Case 3  ' Open Button
  420.         OpenScript
  421.     Case 4
  422.         SaveScript
  423.     
  424. End Select
  425.  
  426.  
  427. End Sub
  428.  
  429. Private Sub txtEditor_Change()
  430.  
  431. If bolScriptNeedsSaving = True Then
  432.     Exit Sub
  433. Else
  434.     bolScriptNeedsSaving = True
  435.     Toolbar1.Buttons(4).Enabled = True
  436. End If
  437.  
  438. End Sub
  439.  
  440.  
  441. Private Sub NewScript()
  442. Dim intResult As Integer
  443.  
  444. CheckForSave
  445.  
  446. txtEditor.Text = ""
  447. bolScriptNeedsSaving = False
  448. Toolbar1.Buttons(4).Enabled = False
  449.  
  450. End Sub
  451. Public Sub CheckForSave()
  452.  
  453. ' If the script needs to be saved, then prompt the user
  454. '   otherwise, simply continue on to clearing the
  455. '   text box
  456. CancelUnload = False
  457. If bolScriptNeedsSaving = True Then
  458.     intResult = MsgBox("Do you want to save your current script?", vbYesNoCancel, "Script needs saving")
  459.     If intResult = vbCancel Then
  460.         CancelUnload = True
  461.         Exit Sub
  462.     ElseIf intResult = vbYes Then
  463.         SaveScript
  464.     End If
  465.     
  466. End If
  467. End Sub
  468. Public Sub CreatePDF()
  469.  
  470. Dim PDF As Object
  471. Set PDF = CreateObject("build.PDF")
  472.  
  473. strPDFFilePath = FormatFileName(Trim(outfile.Text))
  474. PDF.setOutFile (strPDFFilePath)
  475.  
  476. Me.MousePointer = vbHourglass
  477. StatusBar1.Panels(1).Text = "Creating PDF File"
  478.  
  479. ' Split the string up into individual lines in an array
  480. strScriptArray = Split(txtEditor.Text, vbCrLf)
  481. For i = 0 To UBound(strScriptArray)
  482.   PDF.setPDFCmd (strScriptArray(i))
  483. Next
  484.  
  485. If chkPrint.Value = vbChecked Then PDF.setPrint
  486. If chkMail.Value = vbChecked Then PDF.setMail
  487.  
  488. If ownPass.Text <> "" Then PDF.setOwner (ownPass.Text)
  489. If usrPass.Text <> "" Then PDF.setUser (usrPass.Text)
  490. If chk128.Value = vbChecked Then PDF.setEncrypt128
  491.  
  492. retval = PDF.buildPDF
  493.  
  494. Me.MousePointer = vbNormal
  495.  
  496. If chkPreview.Value = vbChecked Then
  497.     StatusBar1.Panels(1).Text = "Opening Adobe Acrobat"
  498.     Unload frmPDFPreview
  499.     frmPDFPreview.Pdf1.src = strPDFFilePath
  500.     frmPDFPreview.Show
  501.     StatusBar1.Panels(1).Text = ""
  502. End If
  503.  
  504. Set PDF = Nothing
  505.  
  506. End Sub
  507.